home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / lldemo / lldemo.shr / ROSETTA.EXE / ROSETTA.DXR / 00585_do mode scripts.ls < prev    next >
Encoding:
Text File  |  1996-06-24  |  1.5 KB  |  53 lines
  1. on doMode flow, theMode
  2.   global gFlowType, gPage, gStartTime, gBlindfold, gOldDelay, gDictNum, gTimer, gTest, gCurQuad, gNexQuad, gNextUnit, gNextChap, gNextPage, gNewChap, gSaveMode, gOldTimer, gOldTest
  3.   set ret to #ok
  4.   set gFlowType to flow
  5.   set gSaveMode to "000"
  6.   if gFlowType = #sms then
  7.     set newState to getSMSNextMode(#firstTime)
  8.     set goto to doFirstState(newState)
  9.     if goto = "endScreen" then
  10.       set ret to #done
  11.     else
  12.       if goto = "error" then
  13.         set goto to "endScreen"
  14.         set ret to #error
  15.       end if
  16.     end if
  17.   else
  18.     if gFlowType = #SCRAMBLE then
  19.       set gOldDelay to gBlindfold
  20.       set gBlindfold to random(4) = 1
  21.       set gOldTest to gTest
  22.       set gTest to 0
  23.       set gOldTimer to gTimer
  24.       set gTimer to 0
  25.     end if
  26.   end if
  27.   if theMode = "skip" then
  28.     nothing()
  29.   else
  30.     if theMode = "random" then
  31.       translateMode(randMode())
  32.       set gPage to setPage(randPage(gPage))
  33.       set gNextPage to randPage(gNextPage)
  34.     else
  35.       translateMode(theMode)
  36.       set gPage to setPage(1)
  37.       set gNextPage to 2
  38.     end if
  39.   end if
  40.   if (ret <> #done) and (ret <> #error) then
  41.     set gNextUnit to ChapStr2Unit(gNewChap)
  42.     set gNextChap to ChapStr2Chap(gNewChap)
  43.     newPage(gCurQuad, ChapStr2Unit(gNewChap), ChapStr2Chap(gNewChap), gPage)
  44.     newPage(gNexQuad, gNextUnit, gNextChap, gNextPage)
  45.     checkLoad()
  46.     set gStartTime to the ticks
  47.     set gDictNum to 0
  48.     initPage()
  49.     goChangeMeta("initPlay")
  50.   end if
  51.   return ret
  52. end
  53.